home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 July / 64er_Magazin_86-07_1986_Markt__Technik_de.d64 / axel f. (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  602b  |  24 lines
  1. 10 a=a+1
  2. 20 ifa=1thenload"axel f./i",8,8
  3. 100 sys64789
  4. 110 l1=54272:h1=l1+1:v1=l1+4
  5. 150 poke v1+1,9:poke v1+2,9
  6. 160 poke53280,6:poke53281,6
  7. 174 sys39242
  8. 175 print"[147]"tab(8)"[154]>> part from axel f. <<"
  9. 176 printtab(8)"rps-rhythm + basic-bass"
  10. 178 ifpeek(250)<7goto178
  11. 179 ifpeek(2)goto179
  12. 202 ifz=25thenrestore
  13. 205 readh,l,s
  14. 210 pokeh1,h:pokel1,l:pokev1,32:pokev1,33
  15. 220 sys39317,s
  16. 230 z=z+1:ifz<50goto202
  17. 250 ifpeek(249)<15goto250
  18. 290 sys64789
  19. 999 :
  20. 1000 data2,231,32,5,207,24,5,45,16,5,45,8,4,90,16,5,45,16,5,207,16,2,231,32
  21. 1003 data5,207,40,5,207,8,4,90,16,5,45,16,5,207,16,2,78,32,4,156,24,5,45,16
  22. 1006 data 5,45,8,4,90,16,5,45,16,5,207,16,5,207,72,5,45,8,4,90,16,3,224,16
  23. 1010 data3,116,16
  24.